home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 April / Macworld (1999-04).dmg / Serious Software / SiteCam 3.0 demo / Extras / Sample AppleScripts / FTP Scripts / PPP Fetch sample < prev   
Encoding:
Text File  |  1997-11-11  |  3.5 KB  |  96 lines  |  [TEXT/ToyS]
  1. -- This is a SiteCam post-process script to FTP the last image 
  2. --  (Image.jpg) to a remote FTP location and saves it as "current.jpg".
  3. -- This document should be viewed and edited using "Script Editor".  
  4. -- This script starts and terminates a PPP connection if not already 
  5. -- connected
  6. -- The FTP portion of the script uses a two step process to minimize 
  7. -- the time that a image is unavailable to the http server.
  8.  
  9. -- Step 1: Get the right PPP
  10. -- Verify that you have the latest Apple PPP
  11. --   Install and make sure that "PPP Commands" is in your 
  12. --   "System Folder:Extensions:Scripting Additions" folder.  
  13. -- To test your PPP, create a new script and type "PPP Connect" 
  14. -- and hit "Run."
  15. -- If you're already connected, you'll get an error.  Next, delete 
  16. -- that and type "PPP Disconnect" and hit "Run."
  17. --
  18. -- If your Fetch program is not named "Fetch", either rename it 
  19. -- or change the script to its actual file name (e.g. Fetch 3.0)
  20. --
  21. -- Step 2:
  22.  
  23. -- Open this document from ScriptEditor- save it as "MyFTP Script" 
  24. -- Create a Ram Disk for added efficiency using the "Memory" control 
  25. --   panel.  (Or rename file path to suit your needs)  
  26. -- Put an alias of Fetch 3.0.1 in your "Startup Items" folder in your 
  27. --   System Folder. If you have an older version, please upgrade.  
  28. -- Reboot to activate Ram Disk and start Fetch.
  29. -- Edit the script below, modifying the host, userID, password, and 
  30. --   file names as needed.  They have been marked with xxxxxx
  31.  
  32. -- Step 3:
  33.  
  34. -- Create a SiteCam document with the following settings
  35. -- Set type to jpeg (already default)
  36. -- Set number of pictures to save to 1
  37. -- Set image destination folder to your Ram Disk
  38. -- set file name to Image
  39. -- Do not set your post process proc yet.
  40. -- Save your SiteCam document in your System Folder:Startup items folder.
  41. -- Do a command-T (take picture now) to take the first picture.
  42. -- Next: Go to this script editor document and try running the script.  
  43. --  If all goes well, current.jpg should exist on your remote FTP server.
  44. -- Debug as needed.  When working, Quit Script Editor or close 
  45. --  "MyFTP Script".
  46. -- From SiteCam, Set Post process script to this document to 
  47. --  "MyFTP Script"
  48.  
  49.     with timeout of 1000 seconds
  50.  
  51.  
  52. try
  53.     -- Find status of PPP connection and store in a variable "origState"
  54.     set origState to PPP status
  55.     -- If not connected, connect to your ISP
  56.     if (state of origState is not "Connected") then
  57.         PPP connect
  58.     end if
  59.     
  60.     -- If we're connected, do the FTP part
  61.     if (state of (PPP status) is "Connected") then
  62.     
  63.  
  64. -- Save the last file saved to a remote FTP directory.
  65. -- Change all the xxxx's to your own values. 
  66. -- In Fetch--Under Customize, Preferences, Misc. "Show Sign-up dialog at startup" should be unchecked.
  67.  
  68.         -- Get location of the last file saved.  
  69.         tell application "SiteCam"
  70.             set lastFileSaved to last image file of active document
  71.         end tell
  72.         
  73.         tell application "Fetch 3.0.3"
  74.             make new transfer window with properties {hostname:"ftp.xxxxxx.com", userid:"xxxxxxUserName", password:"xxxxxxPassword", path:""}
  75.             put into transfer window "ftp.xxxxxx.com" item alias lastFileSaved text format Raw Data binary format Raw Data
  76.             close front window saving no -- we avoid any dialogs by adding "saving no"
  77.         end tell
  78.  
  79.     else
  80.         -- signal FTP error
  81.         -- change this to some error, or take out beep if it bugs you.
  82.         beep
  83.         beep
  84.     end if
  85.     
  86.     PPP disconnect
  87.     
  88. on error errMsg number errNum
  89.     -- signal PPP or other error
  90.     -- change this to some error, or take out beep if it bugs you.
  91.     beep
  92. end try
  93.  
  94.     end timeout
  95.  
  96.